unit USubMenu;

interface

type
  TSubmenu = class
    private
      FNome: String;
      FPai: String;
    procedure SetNome(const Value: String);
    procedure SetPai(const Value: String);
    public
      constructor Create(const sNome: String; const sPai: String);
      property NomeMenu: String read FNome write SetNome;
      property NomePai: String read FPai write SetPai;
  end;

implementation

{ TSubmenu }

constructor TSubmenu.Create(const sNome, sPai: String);
begin
  Self.SetNome(sNome);
  Self.SetPai(sPai);
end;

procedure TSubmenu.SetNome(const Value: String);
begin
  FNome := Value;
end;

procedure TSubmenu.SetPai(const Value: String);
begin
  FPai := Value;
end;

end.
 